home *** CD-ROM | disk | FTP | other *** search
Text File | 2004-10-12 | 47.0 KB | 1,843 lines |
- object MessageFinder: TMessageFinder
- Left = 249
- Top = 194
- HelpContext = 11021
- AutoScroll = False
- Caption = 'Message Finder'
- ClientHeight = 474
- ClientWidth = 630
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- Menu = ViewMenu
- OldCreateOrder = True
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDeactivate = FormDeactivate
- OnKeyDown = FormKeyDown
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object MsgCtl: TMessageController
- Left = 360
- Top = 272
- Width = 40
- Height = 33
- MsgView = MLV
- end
- object Split1: TSplitter
- Left = 0
- Top = 238
- Width = 630
- Height = 4
- Cursor = crVSplit
- Align = alTop
- ResizeStyle = rsUpdate
- end
- object bStatus: TStatusBar
- Left = 0
- Top = 455
- Width = 630
- Height = 19
- Panels = <
- item
- Style = psOwnerDraw
- Text = 'Progress'
- Width = 100
- end
- item
- Width = 50
- end>
- OnDrawPanel = bStatusDrawPanel
- end
- object pBookA: TPanel
- Left = 0
- Top = 0
- Width = 630
- Height = 238
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- object pnBook: TPanel
- Left = 0
- Top = 0
- Width = 630
- Height = 238
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 2
- FullRepaint = False
- TabOrder = 0
- object Book: TPageControl
- Left = 2
- Top = 2
- Width = 500
- Height = 234
- HelpContext = 11021
- ActivePage = tsSearch
- Align = alClient
- TabOrder = 0
- TabStop = False
- object tsSearch: TTabSheet
- Caption = 'Options'
- object sBox: TScrollBox
- Left = 0
- Top = 0
- Width = 492
- Height = 206
- VertScrollBar.Tracking = True
- Align = alClient
- BorderStyle = bsNone
- TabOrder = 0
- OnResize = sBoxResize
- object Label1: TLabel
- Left = 8
- Top = 12
- Width = 52
- Height = 13
- Caption = '&Search for:'
- end
- object lbLookIn: TLabel
- Left = 176
- Top = 40
- Width = 38
- Height = 13
- Caption = '&Look in:'
- FocusControl = cbTarget
- Transparent = True
- Layout = tlBottom
- end
- object gbScope: TGroupBox
- Left = 4
- Top = 32
- Width = 161
- Height = 161
- Caption = 'Scope'
- TabOrder = 1
- object cbAnywhere: TCheckBox
- Left = 8
- Top = 16
- Width = 145
- Height = 17
- Caption = 'Any&where'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = cbAnywhereClick
- end
- object cbSender: TCheckBox
- Left = 8
- Top = 36
- Width = 145
- Height = 17
- Caption = 'Se&nder'
- TabOrder = 1
- OnClick = cbSenderClick
- end
- object cbRecipient: TCheckBox
- Left = 8
- Top = 56
- Width = 145
- Height = 17
- Caption = '&Recipient'
- TabOrder = 2
- OnClick = cbSenderClick
- end
- object cbSubj: TCheckBox
- Left = 8
- Top = 76
- Width = 145
- Height = 17
- Caption = 'Sub&ject'
- TabOrder = 3
- OnClick = cbSenderClick
- end
- object cbHeaders: TCheckBox
- Left = 8
- Top = 96
- Width = 145
- Height = 17
- Caption = 'Hea&ders'
- TabOrder = 4
- OnClick = cbSenderClick
- end
- object cbBody: TCheckBox
- Left = 8
- Top = 140
- Width = 145
- Height = 17
- Caption = '&Body'
- TabOrder = 6
- OnClick = cbSenderClick
- end
- object cbMemo: TCheckBox
- Left = 8
- Top = 118
- Width = 145
- Height = 17
- Caption = '&Memo'
- TabOrder = 5
- OnClick = cbSenderClick
- end
- end
- object eText: TComboBox
- Left = 96
- Top = 8
- Width = 351
- Height = 21
- ItemHeight = 13
- TabOrder = 0
- OnKeyDown = eTextKeyDown
- end
- object mlFolders: TMLVGrid
- Left = 176
- Top = 60
- Width = 273
- Height = 133
- ColCount = 1
- DefaultRowHeight = 16
- DefaultDrawing = False
- FixedCols = 0
- RowCount = 1
- FixedRows = 0
- Options = [goThumbTracking]
- PopupMenu = pmFolders
- TabOrder = 2
- OnKeyDown = mlFoldersKeyDown
- OnMouseDown = mlFoldersMouseDown
- AltDrag = True
- AutoColResize = True
- AutoSearch = True
- MultiSelect = False
- ImmediateSelect = False
- OnDrawItemImage = mlFoldersDrawItemImage
- end
- object cbTarget: TComboBox
- Left = 224
- Top = 36
- Width = 225
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 3
- Text = 'Selected folders'
- OnChange = cbTargetChange
- OnDropDown = cbTargetDropDown
- Items.Strings = (
- 'Selected folders'
- 'Current account (%s)'
- 'All accounts'
- 'Found messages')
- end
- end
- end
- object tsResult: TTabSheet
- Caption = 'Results'
- object pnMsgListAligner: TPanel
- Tag = 11
- Left = 0
- Top = 0
- Width = 492
- Height = 206
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 0
- object hMessages: THeaderControl
- Left = 2
- Top = 2
- Width = 488
- Height = 20
- Hint = 'nograb'
- Sections = <>
- OnMouseDown = hMessagesMouseDown
- OnMouseUp = hMessagesMouseUp
- end
- object MLV: TMessageListView
- Left = 2
- Top = 22
- Width = 488
- Height = 182
- HelpContext = 11013
- Align = alClient
- BorderStyle = bsNone
- ColCount = 10
- DefaultRowHeight = 16
- DefaultDrawing = False
- FixedCols = 0
- RowCount = 1
- FixedRows = 0
- Options = [goThumbTracking]
- PopupMenu = MessagePopup
- TabOrder = 1
- OnDblClick = MLVDblClick
- OnKeyDown = MLVKeyDown
- Sorting = 0
- Threading = mlvtNone
- Header = hMessages
- OnColumnsChange = MLVColumnsChange
- OnListChange = MLVListChange
- end
- end
- end
- object tsOptions: TTabSheet
- Caption = 'Advanced'
- object advBox: TScrollBox
- Left = 0
- Top = 0
- Width = 492
- Height = 206
- VertScrollBar.Tracking = True
- Align = alClient
- BorderStyle = bsNone
- TabOrder = 0
- object lKbytes1: TLabel
- Left = 312
- Top = 128
- Width = 35
- Height = 13
- Caption = 'K bytes'
- Enabled = False
- end
- object lKbytes2: TLabel
- Left = 312
- Top = 152
- Width = 35
- Height = 13
- Caption = 'K bytes'
- Enabled = False
- end
- object lBeforeDMY: TLabel
- Left = 288
- Top = 80
- Width = 64
- Height = 13
- Caption = '(dd/mm/yyyy)'
- Enabled = False
- end
- object lAfterDMY: TLabel
- Left = 288
- Top = 102
- Width = 64
- Height = 13
- Caption = '(dd/mm/yyyy)'
- Enabled = False
- end
- object cbCase: TCheckBox
- Left = 224
- Top = 24
- Width = 225
- Height = 17
- Caption = '&Case sensitive search'
- TabOrder = 13
- end
- object cbAttach: TCheckBox
- Left = 8
- Top = 58
- Width = 209
- Height = 17
- Caption = 'Message &has attachments'
- TabOrder = 3
- end
- object cbReplied: TCheckBox
- Left = 8
- Top = 8
- Width = 209
- Height = 17
- Caption = 'Message is ¬ replied'
- TabOrder = 0
- end
- object cbBefore: TCheckBox
- Left = 8
- Top = 84
- Width = 209
- Height = 17
- Caption = 'Received &BEFORE'
- TabOrder = 4
- OnClick = cbBeforeClick
- end
- object cbAfter: TCheckBox
- Left = 8
- Top = 100
- Width = 209
- Height = 17
- Caption = 'Received &AFTER'
- TabOrder = 6
- OnClick = cbAfterClick
- end
- object cbLarger: TCheckBox
- Left = 8
- Top = 132
- Width = 209
- Height = 17
- Caption = 'Size is &LARGER than'
- TabOrder = 8
- OnClick = cbLargerClick
- end
- object cbSmaller: TCheckBox
- Left = 8
- Top = 148
- Width = 209
- Height = 17
- Caption = 'Size is &SMALLER than'
- TabOrder = 10
- OnClick = cbSmallerClick
- end
- object eSmaller: TXSpinEdit
- Left = 224
- Top = 149
- Width = 83
- Height = 21
- Enabled = False
- TabOrder = 11
- Text = '0'
- MinValue = 0
- MaxValue = 10000000
- Value = 0
- Step = 1
- end
- object eLarger: TXSpinEdit
- Left = 224
- Top = 125
- Width = 83
- Height = 21
- Enabled = False
- TabOrder = 9
- Text = '0'
- MinValue = 0
- MaxValue = 10000000
- Value = 0
- Step = 1
- end
- object cbParked: TCheckBox
- Left = 8
- Top = 41
- Width = 209
- Height = 17
- Caption = 'Message is &parked'
- TabOrder = 2
- end
- object cbUnread: TCheckBox
- Left = 8
- Top = 24
- Width = 209
- Height = 17
- Caption = 'Message is &unread'
- TabOrder = 1
- end
- object cbWords: TCheckBox
- Left = 224
- Top = 40
- Width = 225
- Height = 17
- Caption = 'Search for &whole words only'
- TabOrder = 14
- end
- object meBefore: TMaskEdit
- Left = 224
- Top = 76
- Width = 61
- Height = 21
- Enabled = False
- EditMask = '00/00/0000'
- MaxLength = 10
- TabOrder = 5
- Text = ' . . '
- end
- object meAfter: TMaskEdit
- Left = 224
- Top = 100
- Width = 61
- Height = 21
- Enabled = False
- EditMask = '00/00/0000'
- MaxLength = 10
- TabOrder = 7
- Text = ' . . '
- end
- object cbRegExp: TCheckBox
- Left = 224
- Top = 57
- Width = 241
- Height = 17
- Caption = '&Regular expressions'
- TabOrder = 15
- end
- object cbFlagged: TCheckBox
- Left = 224
- Top = 8
- Width = 225
- Height = 17
- Caption = 'Message is &flagged'
- TabOrder = 12
- end
- object cbIsColor: TCheckBox
- Left = 8
- Top = 184
- Width = 217
- Height = 17
- Caption = 'Message colour is'
- TabOrder = 16
- OnClick = cbIsColorClick
- end
- object cbColor: TComboBox
- Left = 224
- Top = 182
- Width = 161
- Height = 21
- Style = csDropDownList
- Enabled = False
- ItemHeight = 0
- TabOrder = 17
- end
- end
- end
- end
- object ButtonsPanel: TPanel
- Left = 502
- Top = 2
- Width = 126
- Height = 234
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 1
- object bStart: TButton
- Left = 4
- Top = 20
- Width = 117
- Height = 25
- Caption = 'Start'
- Default = True
- TabOrder = 0
- OnClick = bStartClick
- end
- object bStop: TButton
- Left = 4
- Top = 52
- Width = 117
- Height = 25
- Cancel = True
- Caption = 'S&top'
- Enabled = False
- TabOrder = 1
- OnClick = bStopClick
- end
- object bClose: TButton
- Left = 4
- Top = 116
- Width = 117
- Height = 25
- Cancel = True
- Caption = 'Close'
- TabOrder = 2
- OnClick = bCloseClick
- end
- object bHelp: TButton
- Left = 4
- Top = 84
- Width = 117
- Height = 25
- Caption = '&Help'
- TabOrder = 3
- OnClick = bHelpClick
- end
- object bFollow: TButton
- Left = 4
- Top = 148
- Width = 117
- Height = 25
- Cancel = True
- Caption = '&Follow'
- Enabled = False
- TabOrder = 4
- OnClick = bFollowClick
- end
- object btnVFolder: TButton
- Left = 4
- Top = 180
- Width = 117
- Height = 25
- Caption = 'Virtual Folder...'
- Enabled = False
- TabOrder = 5
- OnClick = btnVFolderClick
- end
- end
- end
- end
- object pnMsgViewAligner: TPanel
- Left = 0
- Top = 242
- Width = 630
- Height = 213
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 2
- inline VFrame: TMsgViewFrame
- Left = 2
- Top = 2
- Width = 626
- Height = 209
- Align = alClient
- Constraints.MinHeight = 100
- Constraints.MinWidth = 100
- TabOrder = 0
- inherited pnRece: TPanel
- Top = 160
- Width = 626
- inherited pbRece: TProgressBar
- Width = 624
- end
- end
- inherited pnMsg: TPanel
- Width = 626
- Height = 119
- inherited Split1: TSplitter
- Height = 119
- end
- inherited pnView: TPanel
- Width = 491
- Height = 119
- inherited tsTabs: TTabSet
- Top = 96
- Width = 487
- end
- end
- inherited pnAttachAligner: TPanel
- Height = 119
- inherited lvFiles: TListView
- Height = 115
- end
- end
- end
- inherited pnHeader: TPanel
- Tag = 11
- Width = 626
- BorderWidth = 0
- inherited pnHdrLeft: TPanel
- Left = 2
- Top = 2
- Width = 595
- Height = 37
- inherited eSize: TMemo
- Left = 493
- Height = 37
- end
- inherited gAddr: TAddressGrid
- Width = 457
- Height = 37
- ColWidths = (
- 16
- 441)
- end
- inherited pnAttachButton: TPanel
- Left = 564
- Height = 37
- end
- inherited pnSecurity: TPanel
- Left = 457
- Height = 37
- end
- end
- inherited pnImage: TPanel
- Left = 597
- Top = 2
- Height = 37
- end
- end
- end
- end
- object AttachImages: TImageList
- Height = 32
- Width = 32
- Left = 232
- Top = 272
- end
- object MessagePopup: TPopupMenu
- OnPopup = MessagePopupPopup
- Left = 328
- Top = 272
- object mmNextUR: TMenuItem
- Tag = 1
- Caption = 'Move to &Next Unread'
- ShortCut = 16605
- Visible = False
- OnClick = MovetoNextunread1Click
- end
- object mmPrevUR: TMenuItem
- Tag = -1
- Caption = 'Move to Pre&vious Unread'
- ShortCut = 16603
- Visible = False
- OnClick = MovetoNextunread1Click
- end
- object MovetoNextunread2: TMenuItem
- Tag = 1
- Caption = 'Move to &Next unread'
- ShortCut = 49191
- OnClick = MovetoNextunread1Click
- end
- object MovetoPreviousunread2: TMenuItem
- Tag = -1
- Caption = '&Move to Previous unread'
- ShortCut = 49189
- OnClick = MovetoNextunread1Click
- end
- object MovetoNextunread8: TMenuItem
- Tag = 1
- Caption = 'Move to &Next unread'
- ShortCut = 16423
- Visible = False
- OnClick = MovetoNextunread1Click
- end
- object MovetoPreviousunread8: TMenuItem
- Tag = -1
- Caption = '&Move to Previous unread'
- ShortCut = 16421
- Visible = False
- OnClick = MovetoNextunread1Click
- end
- object N21: TMenuItem
- Caption = '-'
- end
- object mpCreate: TMenuItem
- Caption = 'Create a Ne&w Message...'
- Default = True
- ShortCut = 16462
- OnClick = mpCreateClick
- end
- object mOpenMessage: TMenuItem
- Caption = '&Open '
- ShortCut = 13
- OnClick = mOpenMessageClick
- end
- object mpReplyA: TMenuItem
- Caption = '&Reply...'
- ShortCut = 16466
- Visible = False
- OnClick = mpReplyAClick
- end
- object mReplyMessage: TMenuItem
- Caption = '&Reply...'
- ShortCut = 16397
- OnClick = mpReplyAClick
- end
- object mFwdMessage: TMenuItem
- Tag = 1
- Caption = '&Forward...'
- ShortCut = 8205
- OnClick = mpReplyAClick
- end
- object mmRedirect: TMenuItem
- Tag = 4
- Caption = 'R&edirect'
- ShortCut = 16453
- OnClick = mpReplyAClick
- end
- object mmThread: TMenuItem
- Caption = '&Thread'
- object mmtCopy: TMenuItem
- Caption = '&Copy'
- ShortCut = 16468
- OnClick = mmtCopyClick
- end
- object mmtMove: TMenuItem
- Tag = 1
- Caption = '&Move'
- ShortCut = 24662
- OnClick = mmtCopyClick
- end
- object mmtDelete: TMenuItem
- Tag = 2
- Caption = '&Delete'
- ShortCut = 24622
- OnClick = mmtCopyClick
- end
- object N22: TMenuItem
- Caption = '-'
- end
- object mmtMarkRead: TMenuItem
- Tag = 3
- Caption = 'Mark as &Read'
- ShortCut = 24653
- OnClick = mmtCopyClick
- end
- object mmtMarkUnread: TMenuItem
- Tag = 4
- Caption = 'Mark as &Unread'
- ShortCut = 24661
- OnClick = mmtCopyClick
- end
- object mmtPark: TMenuItem
- Tag = 5
- Caption = '&Park'
- OnClick = mmtCopyClick
- end
- object mmtUnpark: TMenuItem
- Tag = 6
- Caption = 'Unp&ark'
- OnClick = mmtCopyClick
- end
- end
- object N17: TMenuItem
- Caption = '-'
- end
- object mvCopy: TMenuItem
- Tag = 1
- Caption = '&Copy to Folder...'
- ShortCut = 16451
- OnClick = mvCopyClick
- end
- object mvMove: TMenuItem
- Caption = '&Move to Folder...'
- ShortCut = 16470
- OnClick = mvCopyClick
- end
- object mSaveMessage: TMenuItem
- Caption = '&Save as...'
- ShortCut = 16467
- OnClick = mSaveMessageClick
- end
- object mDelMessageList: TMenuItem
- Caption = '&Delete from List'
- OnClick = mDelMessageListClick
- end
- object mmDelFromBase: TMenuItem
- Caption = '&Delete from Base'
- ShortCut = 16430
- OnClick = mmAltDelClick
- end
- object mmAltDel: TMenuItem
- Tag = 1
- Caption = 'Alternative Delete'
- ShortCut = 8238
- Visible = False
- OnClick = mmAltDelClick
- end
- object mSpecials: TMenuItem
- Caption = 'Specials'
- object mmAddAddress: TMenuItem
- Caption = '&Add sender to Address Book'
- ShortCut = 16471
- OnClick = msAddSenderClick
- end
- object mmDeleteAddress: TMenuItem
- Caption = '&Delete from Address Book'
- ShortCut = 16459
- OnClick = msDelSenderClick
- end
- object mmMakeFilter: TMenuItem
- Caption = '&Create filter...'
- ShortCut = 24646
- OnClick = msCreateFilterClick
- end
- object mmFindReply: TMenuItem
- Caption = '&Open reply'
- ShortCut = 16392
- OnClick = msOpenReplyClick
- end
- object mvPGPDecrypt: TMenuItem
- Caption = 'P&GP Decrypt'
- ShortCut = 24644
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object mmMarkSpam: TMenuItem
- Tag = 1
- Caption = 'Mark as Junk'
- OnClick = mMarkSPAMClick
- end
- object mmMarkHAM: TMenuItem
- Caption = 'Mark as NOT Junk'
- OnClick = mMarkSPAMClick
- end
- object N29: TMenuItem
- Caption = '-'
- end
- object mmPark: TMenuItem
- Caption = '&Park'
- ShortCut = 16458
- OnClick = mmParkClick
- end
- object mmUnpark: TMenuItem
- Tag = 1
- Caption = '&Unpark'
- ShortCut = 16452
- OnClick = mmParkClick
- end
- object N32: TMenuItem
- Caption = '-'
- end
- object ReplyQuotingselectedtext1: TMenuItem
- Tag = 7
- Caption = 'Reply &Quoting selected text'
- ShortCut = 115
- OnClick = mpReplyAClick
- end
- object Replywithoutquotation1: TMenuItem
- Tag = 5
- Caption = 'Reply &without quotation'
- ShortCut = 8307
- OnClick = mpReplyAClick
- end
- object ReplytotheSender1: TMenuItem
- Tag = 6
- Caption = 'Reply to the &Sender'
- ShortCut = 16499
- OnClick = mpReplyAClick
- end
- object mlAlternativeForward: TMenuItem
- Tag = 10
- Caption = 'Alternative &Forward'
- ShortCut = 41076
- OnClick = mpReplyAClick
- end
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object mmMarkunread: TMenuItem
- Caption = 'Mark as &Unread'
- ShortCut = 16469
- OnClick = mmMarkunreadClick
- end
- object mmMarkRead: TMenuItem
- Tag = 1
- Caption = 'Mark &as Read'
- ShortCut = 16461
- OnClick = mmMarkunreadClick
- end
- object mmFlags: TMenuItem
- Caption = '&Flags'
- Visible = False
- object mmf_Flagged: TMenuItem
- Tag = 2
- Caption = '&Flagged'
- OnClick = mf_FlaggedClick
- end
- object mmf_Replied: TMenuItem
- Tag = 1
- Caption = '&Replied'
- OnClick = mf_FlaggedClick
- end
- object mmf_Forwarded: TMenuItem
- Tag = 3
- Caption = 'F&orwarded/Redirected'
- OnClick = mf_FlaggedClick
- end
- object N26: TMenuItem
- Caption = '-'
- OnClick = mf_FlaggedClick
- end
- object mmf_NormalPty: TMenuItem
- Tag = 5
- Caption = '&Normal priority'
- GroupIndex = 10
- RadioItem = True
- OnClick = mf_FlaggedClick
- end
- object mmf_HighPty: TMenuItem
- Tag = 7
- Caption = '&High priority'
- GroupIndex = 10
- RadioItem = True
- OnClick = mf_FlaggedClick
- end
- object mmf_LowPty: TMenuItem
- Tag = 6
- Caption = '&Low priority'
- GroupIndex = 10
- RadioItem = True
- OnClick = mf_FlaggedClick
- end
- end
- object mmColors: TMenuItem
- Caption = 'Colour &Group'
- end
- object mmRemindLater: TMenuItem
- Caption = 'Remind later'
- end
- object N27: TMenuItem
- Caption = '-'
- end
- object mlSelectAll: TMenuItem
- Caption = 'Selec&t all'
- ShortCut = 16449
- OnClick = mlSelectAllClick
- end
- object mlMovedown: TMenuItem
- Caption = 'Move down'
- ShortCut = 32
- Visible = False
- OnClick = mlMovedownClick
- end
- object Popup3: TMenuItem
- Tag = 2
- Caption = 'Popup'
- ShortCut = 32889
- Visible = False
- OnClick = Popup1Click
- end
- object mFindWord: TMenuItem
- Caption = 'Find a word...'
- ShortCut = 16454
- OnClick = mFindWordClick
- end
- object Findnextword1: TMenuItem
- Caption = 'Find next word'
- ShortCut = 114
- Visible = False
- OnClick = mvFindNextWordClick
- end
- object mvFindNextWord: TMenuItem
- Caption = 'Find next word'
- ShortCut = 16460
- OnClick = mvFindNextWordClick
- end
- end
- object ViewMenu: TMainMenu
- Left = 264
- Top = 272
- object mmMessage: TMenuItem
- Caption = '&Message'
- OnClick = mmMessageClick
- object mvNew: TMenuItem
- Caption = '&New'
- ShortCut = 16462
- OnClick = mpCreateClick
- end
- object mvReply: TMenuItem
- Caption = 'Repl&y...'
- ShortCut = 16397
- OnClick = mpReplyAClick
- end
- object Reply1: TMenuItem
- Caption = '&Reply'
- ShortCut = 16500
- Visible = False
- OnClick = mpReplyAClick
- end
- object mvReplyAll: TMenuItem
- Tag = 2
- Caption = 'Reply to &All'
- ShortCut = 24589
- OnClick = mpReplyAClick
- end
- object ReplytoAll1: TMenuItem
- Tag = 2
- Caption = 'Reply to &All'
- ShortCut = 24692
- Visible = False
- OnClick = mpReplyAClick
- end
- object mvForward: TMenuItem
- Tag = 1
- Caption = 'For&ward...'
- ShortCut = 8205
- OnClick = mpReplyAClick
- end
- object Forward1: TMenuItem
- Tag = 1
- Caption = 'For&ward'
- ShortCut = 8308
- Visible = False
- OnClick = mpReplyAClick
- end
- object mvResend: TMenuItem
- Caption = 'R&e-send'
- ShortCut = 24612
- OnClick = mvResendClick
- end
- object Resend1: TMenuItem
- Caption = 'Re-s&end'
- ShortCut = 8309
- Visible = False
- OnClick = mvResendClick
- end
- object mvRedirect: TMenuItem
- Tag = 4
- Caption = 'Red&irect'
- ShortCut = 16453
- OnClick = mpReplyAClick
- end
- object Redirect1: TMenuItem
- Tag = 4
- Caption = 'Redirec&t'
- ShortCut = 16501
- Visible = False
- end
- object N28: TMenuItem
- Caption = '-'
- end
- object mCopyToFolder: TMenuItem
- Tag = 1
- Caption = '&Copy to folder...'
- OnClick = mvCopyClick
- end
- object mMoveToFolder: TMenuItem
- Caption = '&Move to folder...'
- OnClick = mvCopyClick
- end
- object mvSaveAs: TMenuItem
- Caption = '&Save as...'
- ShortCut = 16467
- OnClick = mSaveMessageClick
- end
- object SaveAs1: TMenuItem
- Caption = '&Save As...'
- ShortCut = 32884
- Visible = False
- OnClick = mSaveMessageClick
- end
- object mmDeleteList: TMenuItem
- Caption = 'Delete from the &List'
- OnClick = mDelMessageListClick
- end
- object mAltDel: TMenuItem
- Tag = 1
- Caption = '&Delete from Base'
- ShortCut = 8238
- Visible = False
- OnClick = mmAltDelClick
- end
- object mmDeleteBase: TMenuItem
- Caption = '&Delete from Base'
- ShortCut = 16430
- OnClick = mmAltDelClick
- end
- object mvPrint: TMenuItem
- Caption = '&Print...'
- ShortCut = 16464
- OnClick = mvPrintClick
- end
- object mAttachments: TMenuItem
- Caption = 'Attachments'
- Visible = False
- object mAttOpen: TMenuItem
- Tag = 1
- Caption = '&Open...'
- end
- object mAttSave: TMenuItem
- Caption = '&Save...'
- end
- object mAttDelete: TMenuItem
- Tag = 3
- Caption = '&Delete'
- end
- object mAttPrint: TMenuItem
- Tag = 2
- Caption = '&Print...'
- end
- object mAttImportKey: TMenuItem
- Tag = 4
- Caption = '&Import Key'
- end
- object N31: TMenuItem
- Caption = '-'
- end
- object mAttSaveAllAttachments: TMenuItem
- Tag = 44
- Caption = 'Save &All Attachments...'
- end
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object mvMarkUnread: TMenuItem
- Caption = 'Mark as &Unread'
- ShortCut = 16469
- OnClick = mmMarkunreadClick
- end
- object mvMarkRead: TMenuItem
- Tag = 1
- Caption = 'Mark as &Read'
- ShortCut = 16461
- OnClick = mmMarkunreadClick
- end
- object msPark: TMenuItem
- Caption = '&Park'
- ShortCut = 16458
- OnClick = mmParkClick
- end
- object msUnpark: TMenuItem
- Tag = 1
- Caption = '&Unpark'
- ShortCut = 16452
- OnClick = mmParkClick
- end
- object mFlags: TMenuItem
- Caption = '&Flags'
- object mf_Flagged: TMenuItem
- Tag = 2
- Caption = '&Flagged'
- ShortCut = 16455
- OnClick = mf_FlaggedClick
- end
- object mf_Replied: TMenuItem
- Tag = 1
- Caption = '&Replied'
- OnClick = mf_FlaggedClick
- end
- object mf_Forwarded: TMenuItem
- Tag = 3
- Caption = 'F&orwarded/Redirected'
- OnClick = mf_FlaggedClick
- end
- object N12: TMenuItem
- Caption = '-'
- OnClick = mf_FlaggedClick
- end
- object mf_NormalPty: TMenuItem
- Tag = 5
- Caption = '&Normal priority'
- GroupIndex = 10
- RadioItem = True
- OnClick = mf_FlaggedClick
- end
- object mf_HighPty: TMenuItem
- Tag = 7
- Caption = '&High priority'
- GroupIndex = 10
- RadioItem = True
- OnClick = mf_FlaggedClick
- end
- object mf_LowPty: TMenuItem
- Tag = 6
- Caption = '&Low priority'
- GroupIndex = 10
- RadioItem = True
- OnClick = mf_FlaggedClick
- end
- end
- object mColors: TMenuItem
- Caption = 'Colour &Group'
- end
- object N9: TMenuItem
- Caption = '-'
- end
- object mvExit: TMenuItem
- Caption = 'E&xit'
- ShortCut = 27
- OnClick = mvExitClick
- end
- end
- object mmEdit: TMenuItem
- Caption = '&Edit'
- OnClick = mmEditClick
- object meCopy: TMenuItem
- Tag = 1
- Caption = '&Copy'
- OnClick = meCopyClick
- end
- object meCopyTo: TMenuItem
- Tag = 1
- Caption = 'Copy &to...'
- OnClick = meCopyToClick
- end
- object N6: TMenuItem
- Caption = '-'
- end
- object meFindWord: TMenuItem
- Caption = '&Find text...'
- ShortCut = 16454
- OnClick = mFindWordClick
- end
- object meFindWordA: TMenuItem
- Caption = 'Find &next'
- ShortCut = 114
- Visible = False
- OnClick = mvFindNextWordClick
- end
- object meFindWordB: TMenuItem
- Caption = 'Find &next'
- ShortCut = 16460
- OnClick = mvFindNextWordClick
- end
- object N33: TMenuItem
- Caption = '-'
- end
- object mOldSearch: TMenuItem
- Caption = '&Use previous conditions'
- end
- end
- object mmSpecials: TMenuItem
- Caption = '&Specials'
- OnClick = mmSpecialsClick
- object MovetoNextunread1: TMenuItem
- Tag = 1
- Caption = 'Move to &Next unread'
- ShortCut = 49191
- OnClick = MovetoNextunread1Click
- end
- object MovetoPreviousunread1: TMenuItem
- Tag = -1
- Caption = '&Move to Previous unread'
- ShortCut = 49189
- OnClick = MovetoNextunread1Click
- end
- object MovetoNextunread7: TMenuItem
- Tag = 1
- Caption = 'Move to &Next unread'
- ShortCut = 16605
- Visible = False
- OnClick = MovetoNextunread1Click
- end
- object MovetoPreviousunread7: TMenuItem
- Tag = -1
- Caption = '&Move to Previous unread'
- ShortCut = 16603
- Visible = False
- OnClick = MovetoNextunread1Click
- end
- object N13: TMenuItem
- Caption = '-'
- end
- object msAddSender: TMenuItem
- Caption = '&Add sender to Address Book'
- ShortCut = 16471
- OnClick = msAddSenderClick
- end
- object msDelSender: TMenuItem
- Caption = '&Delete from Address Book'
- ShortCut = 16459
- OnClick = msDelSenderClick
- end
- object msCreateFilter: TMenuItem
- Caption = '&Create filter...'
- ShortCut = 24646
- OnClick = msCreateFilterClick
- end
- object msOpenReply: TMenuItem
- Caption = '&Open reply'
- ShortCut = 16392
- OnClick = msOpenReplyClick
- end
- object mRemindLater: TMenuItem
- Caption = 'Remind later'
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object mMarkSPAM: TMenuItem
- Tag = 1
- Caption = 'Mark as Junk'
- OnClick = mMarkSPAMClick
- end
- object mMarkHAM: TMenuItem
- Caption = 'Mark as NOT Junk'
- OnClick = mMarkSPAMClick
- end
- object N25: TMenuItem
- Caption = '-'
- end
- object msReplySelected: TMenuItem
- Tag = 7
- Caption = 'Reply &Quoting selected text'
- ShortCut = 115
- OnClick = mpReplyAClick
- end
- object msReplyNoQuotes: TMenuItem
- Tag = 5
- Caption = 'Reply &without quotation'
- ShortCut = 8307
- OnClick = mpReplyAClick
- end
- object msReplySender: TMenuItem
- Tag = 6
- Caption = 'Reply to the &Sender'
- ShortCut = 16499
- OnClick = mpReplyAClick
- end
- object mAltForward: TMenuItem
- Tag = 10
- Caption = 'Alternative &Forward'
- ShortCut = 41076
- OnClick = mpReplyAClick
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object mViewsource: TMenuItem
- Caption = '&View source'
- ShortCut = 120
- OnClick = mViewsourceClick
- end
- object N36: TMenuItem
- Caption = '-'
- end
- object mMailList: TMenuItem
- Caption = '&Mailing list'
- object mlmGetHelp: TMenuItem
- Tag = 1
- Caption = '&Get help'
- end
- object mlmUnsubscribe: TMenuItem
- Tag = 2
- Caption = '&Unsubscribe'
- end
- object mlmSubscribe: TMenuItem
- Tag = 3
- Caption = '&Subscribe'
- end
- object mlmPost: TMenuItem
- Tag = 4
- Caption = '&Post message'
- end
- object mlmViewArchive: TMenuItem
- Tag = 6
- Caption = '&View archive'
- end
- object mlmContactListOwner: TMenuItem
- Tag = 5
- Caption = '&Contact List Owner'
- end
- end
- object N23: TMenuItem
- Caption = '-'
- end
- object mmFollow: TMenuItem
- Caption = 'Follow'
- OnClick = bFollowClick
- end
- end
- object mSecurity: TMenuItem
- Caption = '&Privacy'
- OnClick = mSecurityClick
- object VerifySignature1: TMenuItem
- Caption = '&Verify Signature'
- ShortCut = 24643
- end
- object Decrypt1: TMenuItem
- Tag = 1
- Caption = '&Decrypt'
- ShortCut = 24644
- end
- object ImportKeyCertificate1: TMenuItem
- Tag = 2
- Caption = '&Import Key/Certificate'
- end
- end
- object mmView: TMenuItem
- Caption = '&View'
- OnClick = mmViewClick
- object mmfDisplay: TMenuItem
- Caption = '&Display'
- OnClick = mmfDisplayClick
- object mmfAll: TMenuItem
- Caption = '&All messages'
- GroupIndex = 8
- RadioItem = True
- ShortCut = 16571
- OnClick = mmfAllClick
- end
- object mmfUnread: TMenuItem
- Caption = 'Only &Unread messages'
- GroupIndex = 20
- RadioItem = True
- OnClick = mmfUnreadClick
- end
- object mmfRead: TMenuItem
- Tag = 1
- Caption = 'Only &Read messages'
- GroupIndex = 20
- RadioItem = True
- OnClick = mmfUnreadClick
- end
- object mmfFlagged: TMenuItem
- Tag = 6
- Caption = 'Only &Flagged messages'
- GroupIndex = 20
- OnClick = mmfUnreadClick
- end
- object mmfUnFlagged: TMenuItem
- Tag = 7
- Caption = 'Only Non-f&lagged messages'
- GroupIndex = 20
- OnClick = mmfUnreadClick
- end
- object mmfParked: TMenuItem
- Tag = 2
- Caption = 'Only &Parked messages'
- GroupIndex = 21
- RadioItem = True
- OnClick = mmfUnreadClick
- end
- object mmfUnparked: TMenuItem
- Tag = 3
- Caption = 'Only U&nparked messages'
- GroupIndex = 21
- RadioItem = True
- OnClick = mmfUnreadClick
- end
- object mmfAttach: TMenuItem
- Tag = 4
- Caption = 'Only messages with &Attachments'
- GroupIndex = 22
- RadioItem = True
- OnClick = mmfUnreadClick
- end
- object mmfNoAttach: TMenuItem
- Tag = 5
- Caption = 'Only messages &without Attachments'
- GroupIndex = 22
- RadioItem = True
- OnClick = mmfUnreadClick
- end
- object N19: TMenuItem
- Caption = '-'
- GroupIndex = 22
- end
- object mmfAdvanced: TMenuItem
- Caption = 'Ad&vanced filtering...'
- GroupIndex = 23
- OnClick = mmfAdvancedClick
- end
- end
- object mmsSort: TMenuItem
- Caption = '&Sort by'
- OnClick = mmsSortClick
- object mmsReceived: TMenuItem
- Tag = 6
- Caption = '&Received time'
- GroupIndex = 10
- RadioItem = True
- ShortCut = 16433
- OnClick = mmsReceivedClick
- end
- object mmsCreation: TMenuItem
- Tag = 5
- Caption = '&Creation time'
- GroupIndex = 10
- RadioItem = True
- ShortCut = 16434
- OnClick = mmsReceivedClick
- end
- object mmsSize: TMenuItem
- Tag = 9
- Caption = 'Si&ze'
- GroupIndex = 10
- RadioItem = True
- ShortCut = 16435
- OnClick = mmsReceivedClick
- end
- object mmsSender: TMenuItem
- Tag = 2
- Caption = '&From'
- GroupIndex = 10
- RadioItem = True
- ShortCut = 16436
- OnClick = mmsReceivedClick
- end
- object mmsRecipient: TMenuItem
- Tag = 3
- Caption = '&To'
- GroupIndex = 10
- RadioItem = True
- ShortCut = 16437
- OnClick = mmsReceivedClick
- end
- object mmsSubject: TMenuItem
- Tag = 4
- Caption = '&Subject'
- GroupIndex = 10
- RadioItem = True
- ShortCut = 16438
- OnClick = mmsReceivedClick
- end
- object mmsFlags: TMenuItem
- Tag = 1
- Caption = '&Message Flags'
- GroupIndex = 10
- RadioItem = True
- ShortCut = 16439
- OnClick = mmsReceivedClick
- end
- object mmsAttachment: TMenuItem
- Tag = 8
- Caption = '&Attachment presence'
- GroupIndex = 10
- RadioItem = True
- ShortCut = 16440
- OnClick = mmsReceivedClick
- end
- object mmsParking: TMenuItem
- Tag = 9
- Caption = '&Parking/Draft flag'
- GroupIndex = 10
- RadioItem = True
- ShortCut = 16441
- OnClick = mmsReceivedClick
- end
- object N16: TMenuItem
- Caption = '-'
- GroupIndex = 11
- end
- object mmsDescending: TMenuItem
- Caption = '&Descending order'
- GroupIndex = 11
- ShortCut = 16432
- OnClick = mmsDescendingClick
- end
- end
- object mmtThread: TMenuItem
- Caption = '&View threads by'
- OnClick = mmtThreadClick
- object mmtNone: TMenuItem
- Caption = '&None'
- GroupIndex = 12
- RadioItem = True
- ShortCut = 32816
- OnClick = mmtNoneClick
- end
- object N18: TMenuItem
- Caption = '-'
- GroupIndex = 12
- end
- object mmtStandard: TMenuItem
- Tag = 1
- Caption = '&References (standard)'
- GroupIndex = 12
- RadioItem = True
- ShortCut = 32817
- OnClick = mmtNoneClick
- end
- object mmtSubject: TMenuItem
- Tag = 2
- Caption = '&Subject'
- GroupIndex = 12
- RadioItem = True
- ShortCut = 32818
- OnClick = mmtNoneClick
- end
- object mmtFrom: TMenuItem
- Tag = 3
- Caption = '&From'
- GroupIndex = 12
- RadioItem = True
- ShortCut = 32819
- OnClick = mmtNoneClick
- end
- object mmtTo: TMenuItem
- Tag = 4
- Caption = '&To'
- GroupIndex = 12
- RadioItem = True
- ShortCut = 32820
- OnClick = mmtNoneClick
- end
- end
- object mmHeaderMenu: TMenuItem
- Caption = 'Message &Header'
- GroupIndex = 11
- OnClick = mmHeaderMenuClick
- end
- object mvAttached: TMenuItem
- Caption = '&Attached files'
- GroupIndex = 11
- OnClick = mvAttachedClick
- object ShowasaPane1: TMenuItem
- Caption = 'Show as a &Pane'
- GroupIndex = 2
- RadioItem = True
- OnClick = PaneontheTop1Click
- end
- object ShowasaButton1: TMenuItem
- Tag = 1
- Caption = 'Show as a &Button'
- GroupIndex = 2
- RadioItem = True
- OnClick = PaneontheTop1Click
- end
- object Hide1: TMenuItem
- Tag = 2
- Caption = '&Hide'
- GroupIndex = 2
- RadioItem = True
- OnClick = PaneontheTop1Click
- end
- object N8: TMenuItem
- Tag = -1
- Caption = '-'
- GroupIndex = 2
- OnClick = PaneontheTop1Click
- end
- object Largeicons1: TMenuItem
- Caption = '&Large icons'
- Checked = True
- GroupIndex = 3
- RadioItem = True
- OnClick = PaneontheTop1Click
- end
- object Smallicons1: TMenuItem
- Tag = 1
- Caption = '&Small icons'
- GroupIndex = 3
- RadioItem = True
- OnClick = PaneontheTop1Click
- end
- object N10: TMenuItem
- Tag = -1
- Caption = '-'
- GroupIndex = 3
- OnClick = PaneontheTop1Click
- end
- object PaneontheLeft1: TMenuItem
- Caption = 'Pane on the L&eft'
- GroupIndex = 4
- RadioItem = True
- OnClick = PaneontheTop1Click
- end
- object PaneontheBottom1: TMenuItem
- Tag = 3
- Caption = 'Pane on the &Bottom'
- GroupIndex = 4
- RadioItem = True
- OnClick = PaneontheTop1Click
- end
- object PaneontheRight1: TMenuItem
- Tag = 1
- Caption = 'Pane on the &Right'
- GroupIndex = 4
- RadioItem = True
- OnClick = PaneontheTop1Click
- end
- object PaneontheTop1: TMenuItem
- Tag = 2
- Caption = 'Pane on the &Top'
- GroupIndex = 4
- RadioItem = True
- OnClick = PaneontheTop1Click
- end
- end
- object mmColumns: TMenuItem
- Caption = '&Columns...'
- GroupIndex = 11
- OnClick = mmColumnsClick
- end
- object mShowKludges: TMenuItem
- Caption = 'RFC-&822 headers'
- GroupIndex = 11
- ShortCut = 24651
- OnClick = mShowKludgesClick
- end
- object N34: TMenuItem
- Caption = '-'
- GroupIndex = 11
- end
- object mEditShortcuts: TMenuItem
- Caption = '&Edit Shortcut Keys'
- GroupIndex = 11
- ShortCut = 32891
- OnClick = mEditShortcutsClick
- end
- object N14: TMenuItem
- Caption = '-'
- GroupIndex = 11
- end
- object mmXlat: TMenuItem
- Caption = 'Charact&er set'
- GroupIndex = 11
- object mtNone: TMenuItem
- Caption = '&None'
- GroupIndex = 11
- RadioItem = True
- end
- object N20: TMenuItem
- Caption = '-'
- GroupIndex = 11
- end
- object N7: TMenuItem
- Caption = '-'
- GroupIndex = 12
- end
- object mAutodetect: TMenuItem
- Caption = '&Auto-detect'
- GroupIndex = 12
- ShortCut = 32821
- OnClick = mAutodetectClick
- end
- object mSetAsDeafault: TMenuItem
- Caption = '&Set as default'
- GroupIndex = 12
- OnClick = mSetAsDeafaultClick
- end
- end
- end
- end
- object pmFolders: TPopupMenu
- Left = 500
- Top = 168
- object mfSelectAll: TMenuItem
- Tag = 1
- Caption = '&Select All'
- ShortCut = 16449
- OnClick = mfSelectAllClick
- end
- object mfUnselectAll: TMenuItem
- Caption = '&Unselect All'
- ShortCut = 16469
- OnClick = mfSelectAllClick
- end
- object mInvertAll: TMenuItem
- Tag = -1
- Caption = '&Invert selection'
- ShortCut = 16466
- OnClick = mInvertAllClick
- end
- object N15: TMenuItem
- Caption = '-'
- end
- object mSelectAccount: TMenuItem
- Tag = 1
- Caption = 'Select current Account'
- ShortCut = 16452
- OnClick = mSelectAccountClick
- end
- object mUnSelectAccount: TMenuItem
- Caption = 'Unselect current Account'
- ShortCut = 16463
- OnClick = mSelectAccountClick
- end
- object mInvertAccount: TMenuItem
- Tag = -1
- Caption = 'Invert current account'
- ShortCut = 16453
- OnClick = mSelectAccountClick
- end
- object N11: TMenuItem
- Caption = '-'
- end
- object mfSelectBranch: TMenuItem
- Tag = 1
- Caption = 'Select including sub-folders'
- ShortCut = 16467
- OnClick = mfSelectBranchClick
- end
- object mfUnSelectBranch: TMenuItem
- Caption = 'Unselect including sub-folders'
- ShortCut = 16457
- OnClick = mfSelectBranchClick
- end
- object mInvertBranch: TMenuItem
- Tag = -1
- Caption = 'Invert branch selection'
- ShortCut = 16471
- OnClick = mfSelectBranchClick
- end
- end
- object MenuNavigator: TMenuNavigator
- Left = 400
- Top = 410
- end
- end
-